home *** CD-ROM | disk | FTP | other *** search
- :homekeys.scr
-
- if memory 1 = 2 goto cont_hkl
- memory 1 = 2
- memory 2 = 0
-
- :cont_hkl
- if memory 2 > 0 goto repeat_lesson2
-
- goto start_lesson
- :repeat_lesson
- bkey r
- bkey '
-
- :start_lesson
- clear 15
- start 2
-
- cursor 23 19
- print 'Press any key to start lesson 1.
- wait -
- clear 19 19
-
- cursor 0 15
- print 'We will concentrate on the HOME keys A S D F and J K L ; and the SPACE BAR.
-
- clear 18
- CURSOR 19 18
- print 'ffff jjjj ffff jjjj ffjj ffjj fjfj fjfj
- cursor 0 21
- print 'Your two index fingers should be resting on the F and J keys.
- fkey a
- fkey s
- fkey d
- hkey f
- hkey j
- fkey k
- fkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey g
- bkey h
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'jjjj ffff jjjj ffff jjff jjff jfjf jfjf
- script - dotest1
-
- cursor 19 18
- print 'ffjj jjff jjff ffjj jfjf fjfj jffj fjjf
- script - dotest1
-
- script - progress
-
- clear 18
- CURSOR 19 18
- print 'dddd kkkk dddd kkkk ddkk ddkk dkdk dkdk
- cursor 0 21
- print 'Your two middle fingers should be resting on the d and k keys.
- fkey a
- fkey s
- hkey d
- fkey f
- fkey j
- hkey k
- fkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'kkkk dddd kkkk dddd kkdd kkdd kdkd kdkd
- script - dotest1
-
- cursor 19 18
- print 'ddkk kkdd kkdd ddkk kdkd dkdk kddk dkkd
- script - dotest1
-
- script - progress
-
- clear 18
- CURSOR 19 18
- print 'ssss llll ssss llll ssll ssll slsl slsl
- cursor 0 21
- print 'Your two ring fingers should be resting on the s and l keys.
- fkey a
- hkey s
- fkey d
- fkey f
- fkey j
- fkey k
- hkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'llll ssss llll ssss llss llss lsls lsls
- script - dotest1
-
- cursor 19 18
- print 'ssll llss llss ssll lsls slsl lssl slls
- script - dotest1
-
- script - progress
-
- clear 18
- CURSOR 19 18
- print 'aaaa ;;;; aaaa ;;;; aa;; aa;; a;a; a;a;
- cursor 0 21
- print 'Your two little fingers should be resting on the a and ; keys.
- hkey a
- fkey s
- fkey d
- fkey f
- fkey j
- fkey k
- fkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print ';;;; aaaa ;;;; aaaa ;;aa ;;aa ;a;a ;a;a
- script - dotest1
-
- cursor 19 18
- print 'aa;; ;;aa ;;aa aa;; ;a;a a;a; ;aa; a;;a
- script - dotest1
-
- script - progress
-
- clear 18
- CURSOR 19 18
- print 'ffff jjjj dddd kkkk ffjj ddkk ffjj ddkk
- cursor 0 21
- print 'Now we will try and use the keys D F and J K
- fkey a
- fkey s
- hkey d
- hkey f
- hkey j
- hkey k
- fkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'ffjj jjff ddkk kkdd fjfj jfjf dkdk kdkd
- script - dotest1
-
- cursor 19 18
- print 'ddff jjkk kkjj ffdd dfjk kjfd dkfj jfkd
- script - dotest1
-
- script - progress
-
- clear 18
- CURSOR 9 18
- print 'ffff jjjj dddd kkkk ssss llll ffjj ddkk ssll ffjj ddkk ssll
- cursor 0 21
- print 'Now we will try and use the keys S D F and J K L
- fkey a
- hkey s
- hkey d
- hkey f
- hkey j
- hkey k
- hkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest2
-
- cursor 9 18
- print 'ffjj jjff ddkk kkdd ssll llss fjfj jfjf dkdk kdkd slsl lsls
- script - dotest2
-
- cursor 9 18
- print 'ssdd ddff jjkk kkll ffdd ddss sfdf ljkj fsds jlkl fjkl jfds
- script - dotest2
-
- script - progress
-
- clear 18
- CURSOR 9 18
- print 'ffff jjjj dddd kkkk ssss llll aaaa ;;;; ffjj ddkk ssll aa;;
- cursor 0 21
- print 'Now we will try and use all the HOME keys A S D F and J K L ;
- hkey a
- hkey s
- hkey d
- hkey f
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest2
-
- cursor 9 18
- print ';;;; aaaa llll ssss kkkk dddd jjjj ffff ;;aa llss kkdd jjff
- script - dotest2
-
- cursor 9 18
- print 'asdf jkl; fdsa jkl; fjdk sla; ajsk dlf; jaks ld;f ajdl skf;
- script - dotest2
-
- script - progress
-
- clear 18
- CURSOR 9 18
- print 'a a a a a lads lads lads lads lads lass lass lass lass lass
- cursor 0 21
- print 'Now we will try and form words out of the keys you have learnt.
- hkey a
- hkey s
- hkey d
- hkey f
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest2
-
- clear 18 19
- cursor 9 18
- print 'a lads dad; a lads dad; a lads dad; a lads dad; a lads dads dad
- script - dotest2
-
- clear 18 19
- cursor 9 18
- print 'sad sad sad sad; alas alas alas alas; a sad lads dads jaffa
- script - dotest2
-
- clear 18 19
- cursor 9 18
- print 'a dads lads flask; a dads lads flask; all dads lads jaffas alas
- script - dotest2
-
- clear 18 19
- cursor 9 18
- print 'all flasks all jaffas; a lad asks dad; alas alas a lads sad dad;
- script - dotest2
-
- script - repeat
- if key = R goto repeat_lesson
- if key = r goto repeat_lesson
-
- memory 2 = 1
-
- clear
- cursor 10 7
- print 'This is the end of lesson 1. It has probably worn you out.
- cursor 9 9
- print 'PcKey can remember your last lesson as well as your progress.
- cursor 8 11
- print 'If you want to stop for now and save your progress then press S.
- cursor 3 13
- print 'If you want to continue press C. ESC will return you to the TUTORIAL MENU.
-
- :wait_for_c
- wait -
- if key = S goto exit
- if key = s goto exit
- if key ! C if key ! c goto wait_for_c
-
- clear
- keyboard
-
- :repeat_lesson2
- if memory 2 > 1 goto exit
- start 2
- clear 15
- cursor 23 19
- print 'Press any key to start lesson 2.
- wait -
- clear 19 19
-
- CURSOR 2 16
- print 'You have probably noticed the two keys G and H that lie inbetween the F and J
- cursor 0 17
- print 'keys.
-
- hkey f
- hkey j
- fkey g
- fkey h
-
- print ' G and H are pressed by your index fingers as well as F and J. You simply
- cursor 0 18
- print 'move your left index finger from the F key to the G key, press the G key and
- cursor 0 19
- print 'move your finger back resting over the F key.
-
- cursor 2 21
- print 'Likewise with the H key, you move your right index finger over from the J key,
- cursor 0 22
- print 'press H, and return your finger over J.
-
- script - waitspc
-
- clear 16
- cursor 2 16
- print 'Try moving your left index finger over the G key, press it and move your
- cursor 0 17
- print 'finger back over the F key.
-
- :wait_for_g
- wait -
- if key ! G if key ! g goto wait_for_g
-
- fkey f
- hkey g
-
- cursor 2 19
- print 'Good. Now press the F key.
-
- :wait_for_f
- wait -
- if key ! F if key ! f goto wait_for_f
-
- bkey g
- hkey f
-
- print ' Good.
- script - waitspc
-
- clear 15
- cursor 0 15
- print 'Now we will try a short test using the keys A S D F and G.
-
- clear 18
- CURSOR 19 18
- print 'ffff gggg ffff gggg ffgg ffgg fgfg fgfg
- cursor 0 21
- print 'Remember you use your left index finger to press G.
- fkey a
- fkey s
- fkey d
- hkey f
- hkey g
- bkey h
- fkey j
- fkey k
- fkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey g
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'gggg ffff gggg ffff ggff ggff gfgf gfgf
- script - dotest1
-
- cursor 19 18
- print 'gggg ffff ggff ffgg gfgf fgfg gffg fggf
- script - dotest1
-
- clear 18
- CURSOR 19 18
- print 'dddd gggg ffff gggg dddd ffff gggg dddd
- cursor 0 21
- print 'Remember, after pressing the G key, your left index finger returns resting over
- cursor 0 22
- print 'the F key.
- hkey a
- hkey s
- hkey d
- hkey f
- hkey g
- fkey j
- fkey k
- fkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey g
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'gggg dddd ffff ssss gggg aaaa ffff aagg
- script - dotest1
-
- cursor 19 18
- print 'ffdd ggss aaff ssgg fdgs gadf gfgd sgfa
- script - dotest1
-
- clear 15
- cursor 2 16
- print 'Try moving your right index finger over the H key, press it and move your
- cursor 0 17
- print 'finger back over the J key.
-
- hkey j
- fkey h
-
- :wait_for_h
- wait -
- if key ! H if key ! h goto wait_for_h
-
- fkey j
- hkey h
-
- cursor 2 19
- print 'Good. Now press the J key.
-
- :wait_for_j
- wait -
- if key ! J if key ! j goto wait_for_j
-
- bkey h
- hkey j
-
- print ' Good.
- script - waitspc
-
- clear 15
- cursor 0 15
- print 'Now we will try a short test using the keys H J K L and ;
-
- clear 18
- CURSOR 19 18
- print 'jjjj hhhh jjjj hhhh jjhh jjhh jhjh jhjh
- cursor 0 21
- print 'Remember you use your right index finger to press H.
- fkey a
- fkey s
- fkey d
- fkey f
- hkey h
- hkey j
- fkey k
- fkey l
- fkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey h
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'hhhh jjjj hhhh jjjj hhjj hhjj hjhj hjhj
- script - dotest1
-
- cursor 19 18
- print 'jjhh hhjj hhjj jjhh hjhj jhjh hjjh jhhj
- script - dotest1
-
- clear 18
- CURSOR 19 18
- print 'kkkk hhhh jjjj hhhh kkkk jjjj hhhh kkkk
- cursor 0 21
- print 'Remember, after pressing the H key, your right index finger returns resting
- cursor 0 22
- print 'over the J key.
- fkey a
- fkey s
- fkey d
- fkey f
- hkey h
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey h
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'hhhh kkkk jjjj llll hhhh ;;;; jjjj ;;hh
- script - dotest1
-
- cursor 19 18
- print 'jjkk hhll ;;jj llhh jkhl h;kj hjhk lhj;
- script - dotest1
-
- script - progress
-
- clear 15
- cursor 0 15
- print 'Now we will try the keys A S D F G and H J K L ;
-
- clear 18
- CURSOR 19 18
- print 'jjjj hhhh jjjj hhhh jjhh jjhh jhjh jhjh
- cursor 0 21
- print 'Remember when your index fingers are not pressing any key, they rest over
- cursor 0 22
- print 'F and J.
- hkey a
- hkey s
- hkey d
- hkey f
- hkey g
- hkey h
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey g
- bkey h
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- cursor 19 18
- print 'hhhh ffff jjjj gggg ffff hhhh jjjj gggg
- script - dotest1
-
- cursor 19 18
- print 'ffhh jjgg hhjj ggff ggdd ffss hhkk jjll
- script - dotest1
-
- cursor 19 18
- print 'aagg ffdd ;;hh jjkk gfds hjkl aa;; ahg;
- script - dotest1
-
- clear 18 19
- cursor 19 18
- print 'ash dash flash glad gas shall flag gall
- script - dotest1
-
- clear 18 19
- cursor 9 18
- print 'a glad lad has a flash jaffa; a glad dads lads lass has a flask
- script - dotest2
-
- clear 18 19
- cursor 9 18
- print 'a glad lads dad has a jaffa; a dads lads lass has a flash flask
- script - dotest2
-
- script - progress
-
- script - repeat
- if key = R goto repeat_lesson2
- if key = r goto repeat_lesson2
-
- memory 2 = 2
-
- clear
- cursor 51 7
- print '2.
- script save
-
- if key ! C if key ! c goto exit
- clear
- keyboard
-
- :exit